#!/usr/bin/perl
#h to d 
for ($i = 0; $i < @ARGV; $i++){
    $val = hex($ARGV[$i]);
    printf("0x%x\t= %d\n", $val,$val);
}

